﻿Public Class frmonhandreport
    Dim Strsql As String
    Dim _mysql As New ClsSQLhelper
    Private Sub frmonhandreport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DS_ONHAND As New DataSet
        Strsql = "select * from vw_onhand"
        DS_ONHAND = _mysql.GetMYSQLDataset(Strsql, "WHAS", "vw_onhand")

        Dim CR As New RptOnhandItem

        CR.SetDataSource(DS_ONHAND.Tables("vw_onhand"))

        CrystalReportViewer1.ReportSource = CR

    End Sub

    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load

    End Sub
End Class